home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh13a.d64 / hell. regeln (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  490b  |  21 lines
  1. 10 REM *************************
  2. 20 REM * ANSTEUERUNG VON MOTOR *
  3. 30 REM *  UND/ODER GLUEHBIRNE  *
  4. 40 REM *************************
  5. 45 :
  6. 50 B$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  7. 51 PRINT"[147]          111111"
  8. 52 PRINT"0123456789012345"
  9. 53 PRINT"[171][219]";RIGHT$(B$,16)
  10. 54 PRINT"BEDIENUNG DES SCHIEBEREGLERS MIT DEN    CURSORTASTEN"
  11. 60 POKE56579,15
  12. 70 I=0
  13. 80 GETA$:IF A$=""THEN80
  14. 90 IF A$=""THENI=I-1
  15. 100 IFA$=""THENI=I+1
  16. 110 IFI>15THENI=15
  17. 112 IFI<0THENI=0
  18. 120 POKE56577,I
  19. 130 PRINT""LEFT$(B$,I+1);"[219]";RIGHT$(B$,16-I)
  20. 140 GOTO80
  21.